home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / GSAVE2.ZIP / PASCAL.ZIP / GSOBJ.ASM < prev    next >
Assembly Source File  |  1995-12-03  |  1KB  |  82 lines
  1. .model tpascal
  2. .code
  3.  
  4. public  setup_vga,load_screengs
  5.  
  6. proc    setup_vga
  7.     mov     ax,0013h
  8.     int     10h
  9.     ret               
  10. endp    setup_vga
  11.  
  12. picture dw ?
  13. file    db 'SCREENGS.000',0
  14.  
  15. proc    load_screengs
  16.     push    cs
  17.     pop     ds
  18.  
  19.     push    0a000h
  20.     pop     es
  21.  
  22.     mov     ax,4a00h
  23.     mov     bx,1000h
  24.     int     21h
  25.  
  26.     mov     ax,4800h
  27.     mov     bx,1000h
  28.     int     21h
  29.     mov     picture,ax
  30.  
  31.     mov     ax,3d00h
  32.     lea     dx,file
  33.     int     21h
  34.     jc      error
  35.     mov     bx,ax
  36.  
  37.     mov     ax,3f00h
  38.     mov     cx,768        
  39.     xor     dx,dx
  40.     push    ds picture
  41.     pop     ds
  42.     int     21h
  43.  
  44.     mov     dx,3c8h
  45.     xor     al,al
  46.     out     dx,al
  47.     inc     dx
  48.     mov     cx,768
  49.     xor     si,si
  50. load_colors:
  51.     lodsb
  52.     out     dx,al
  53.     loop    load_colors
  54.     pop     ds
  55.  
  56.     mov     ax,3f00h
  57.     mov     cx,320*200
  58.     xor     dx,dx
  59.     push    ds picture
  60.     pop     ds
  61.     int     21h
  62.  
  63.     mov     ax,3e00h
  64.     int     21h
  65.  
  66.     xor     si,si
  67.     xor     di,di
  68.     mov     cx,320*200
  69.     rep     movsb
  70.     pop     ds
  71.     
  72.     push    es
  73.     mov     ax,picture
  74.     mov     es,ax
  75.     mov     ax,4900h
  76.     int     21h
  77.     pop     es
  78. error:
  79.     ret
  80. endp    load_screengs
  81. end
  82.